﻿Option Explicit On
Option Strict On

''' <summary>
''' Formulario Borrar Usuarios: Para borrar usuarios de la BBDD
''' </summary>
''' <author>Jose Manuel Rizo</author>

Public Class BorrarUsuarios
    Private miBBDD As BBDD

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If MessageBox.Show("¿Desea eliminar el usuario " & "?", "Confirmación", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            If CInt(DataGridView1.CurrentRow.Cells(0).Value) = 1 Then
                MsgBox("No se puede borrar el usuario administrador", , "Error")
            Else
                miBBDD.Conectar()
                If miBBDD.BorraUsuario(CInt(DataGridView1.CurrentRow.Cells(0).Value)) Then
                    MsgBox("Usuario borrado con éxito", , "Terminado")
                    DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
                Else
                    MsgBox("Hubo un problema al borrar el usuario", MsgBoxStyle.Exclamation, "Error")
                End If
                miBBDD.Desconectar()
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub BorrarUsuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Database1DataSet.empleado' Puede moverla o quitarla según sea necesario.
        Me.EmpleadoTableAdapter.Fill(Me.Database1DataSet.empleado)
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView1.MultiSelect = False
        miBBDD = New BBDD
    End Sub
End Class